<script>-- This is a little function that returns where the user clicked for setting the-- scripts of the yesArrow, noArrow and otherArrow buttons. It is then used in the-- Infinite handler in the stack script.on lookAhead ClickedHereif ClickedHere = yesBtn5 thenreturn "yes5fld"end ifif ClickedHere = yesBtn6 thenreturn "yes6fld"end ifif ClickedHere = yesBtn7 thenreturn "yes7fld"end ifif ClickedHere = yesBtn8 thenreturn "yes8fld"end ifif ClickedHere = yesBtn9 thenreturn "yes9fld"end ifif ClickedHere = yesBtn10 thenreturn "yes10fld"end ifif ClickedHere = yesBtn11 thenreturn "yes11fld"end ifif ClickedHere = yesBtn12 thenreturn "yes12fld"end ifif ClickedHere = yesBtn13 thenreturn "yes13fld"end ifif ClickedHere = noBtn5 thenreturn "no5fld"end ifif ClickedHere = noBtn6 thenreturn "no6fld"end ifif ClickedHere = noBtn7 thenreturn "no7fld"end ifif ClickedHere = noBtn8 thenreturn "no8fld"end ifif ClickedHere = noBtn9 thenreturn "no9fld"end ifif ClickedHere = noBtn10 thenreturn "no10fld"end ifif ClickedHere = noBtn11 thenreturn "no11fld"end ifif ClickedHere = noBtn12 thenreturn "no12fld"end ifif ClickedHere = noBtn13 thenreturn "no13fld"end ifif ClickedHere = otherBtn5 thenreturn "other5fld"end ifif ClickedHere = otherBtn6 thenreturn "other6fld"end ifif ClickedHere = otherBtn7 thenreturn "other7fld"end ifif ClickedHere = otherBtn8 thenreturn "other8fld"end ifif ClickedHere = otherBtn9 thenreturn "other9fld"end ifif ClickedHere = otherBtn10 thenreturn "other10fld"end ifif ClickedHere = otherBtn11 thenreturn "other11fld"end ifif ClickedHere = otherBtn12 thenreturn "other12fld"end ifif ClickedHere = otherBtn13 thenreturn "other13fld"end ifend lookAhead-- This handler figures out which text is to be displayed for each question or-- conclusion when the user wants to change part of the text.on displayglobal checkif check = label1 thenshow card fld answer1end ifif check = label2 thenshow card fld answer2end ifif check = label3 thenshow card fld answer3end ifif check = label4 thenshow card fld answer4end ifif check = label5 thenshow card fld answer5end ifif check = label6 thenshow card fld answer6end ifif check = label7 thenshow card fld answer7end ifif check = label8 thenshow card fld answer8end ifif check = label9 thenshow card fld answer9end ifif check = label10 thenshow card fld answer10end ifif check = label11 thenshow card fld answer11end ifif check = label12 thenshow card fld answer12end ifif check = label13 thenshow card fld answer13end ifshow card fld hidershow card button doneend displayon clearSystem-- clearSystem is a fairly simple handler. It empties all the flds, including the-- hidden ones and deletes all the newly created tree cards if there are any-- new ones.answer "This will clear the whole system" with "OK" or "CANCEL"choose browse toolif it is "CANCEL" then exit clearSystemset the loc of msg box to 23,208set the cursor to watchgo to card fullput "WORKING...." into msgset lockscreen to trueput empty into card fld "DeletedConclusions"put empty into card fld "DeletedQuestions"put empty into card fld "TotalQuestions"put empty into card fld "TotalConclusions"put empty into card fld "TotalCards"put empty into card fld yes1put empty into card fld yes2put empty into card fld yes3put empty into card fld yes4put empty into card fld yes5put empty into card fld yes6put empty into card fld yes7put empty into card fld yes8put empty into card fld yes9put empty into card fld yes10put empty into card fld yes11put empty into card fld yes12put empty into card fld yes13put empty into card fld other1put empty into card fld other2put empty into card fld other3put empty into card fld other4put empty into card fld other5put empty into card fld other6put empty into card fld other7put empty into card fld other8put empty into card fld other9put empty into card fld other10put empty into card fld other11put empty into card fld other12put empty into card fld other13put empty into card fld no1put empty into card fld no2put empty into card fld no3put empty into card fld no4put empty into card fld no5put empty into card fld no6put empty into card fld no7put empty into card fld no8put empty into card fld no9put empty into card fld no10put empty into card fld no11put empty into card fld no12put empty into card fld no13put empty into card fld ques1put empty into card fld ques2put empty into card fld ques3put empty into card fld ques4put empty into card fld ques5put empty into card fld ques6put empty into card fld ques7put empty into card fld ques8put empty into card fld ques9put empty into card fld ques10put empty into card fld ques11put empty into card fld ques12put empty into card fld ques13put empty into card fld label1put empty into card fld label2put empty into card fld label3put empty into card fld label4put empty into card fld label5put empty into card fld label6put empty into card fld label7put empty into card fld label8put empty into card fld label9put empty into card fld label10put empty into card fld label11put empty into card fld label12put empty into card fld label13put empty into card fld answer1put empty into card fld answer2put empty into card fld answer3put empty into card fld answer4put empty into card fld answer5put empty into card fld answer6put empty into card fld answer7put empty into card fld answer8put empty into card fld answer9put empty into card fld answer10put empty into card fld answer11put empty into card fld answer12put empty into card fld answer13put empty into card fld yes5fldput empty into card fld yes6fldput empty into card fld yes7fldput empty into card fld yes8fldput empty into card fld yes9fldput empty into card fld yes10fldput empty into card fld yes11fldput empty into card fld yes12fldput empty into card fld yes13fldput empty into card fld no5fldput empty into card fld no6fldput empty into card fld no7fldput empty into card fld no8fldput empty into card fld no9fldput empty into card fld no10fldput empty into card fld no11fldput empty into card fld no12fldput empty into card fld no13fldput empty into card fld other5fldput empty into card fld other6fldput empty into card fld other7fldput empty into card fld other8fldput empty into card fld other9fldput empty into card fld other10fldput empty into card fld other11fldput empty into card fld other12fldput empty into card fld other13fldput empty into card fld "pict1"put empty into card fld "pict2"put empty into card fld "pict3"put empty into card fld "pict4"put empty into card fld "pict5"put empty into card fld "pict6"put empty into card fld "pict7"put empty into card fld "pict8"put empty into card fld "pict9"put empty into card fld "pict10"put empty into card fld "pict11"put empty into card fld "pict12"put empty into card fld "pict13"put empty into card fld "con1"put empty into card fld "con2"put empty into card fld "con3"put empty into card fld "con4"put empty into card fld "con5"put empty into card fld "con6"put empty into card fld "con7"put empty into card fld "con8"put empty into card fld "con9"put empty into card fld "con10"put empty into card fld "con11"put empty into card fld "con12"put empty into card fld "con13"hide card button yesBtn5set the script of card button yesBtn5 to ""hide card button yesBtn6set the script of card button yesBtn6 to ""hide card button yesBtn7set the script of card button yesBtn7 to ""hide card button yesBtn8set the script of card button yesBtn8 to ""hide card button yesBtn9set the script of card button yesBtn9 to ""hide card button yesBtn10set the script of card button yesBtn10 to ""hide card button yesBtn11set the script of card button yesBtn11 to ""hide card button yesBtn12set the script of card button yesBtn12 to ""hide card button yesBtn13set the script of card button yesBtn13 to ""hide card button noBtn5set the script of card button noBtn5 to ""hide card button noBtn6set the script of card button noBtn6 to ""hide card button noBtn7set the script of card button noBtn7 to ""hide card button noBtn8set the script of card button noBtn8 to ""hide card button noBtn9set the script of card button noBtn9 to ""hide card button noBtn10set the script of card button noBtn10 to ""hide card button noBtn11set the script of card button noBtn11 to ""hide card button noBtn12set the script of card button noBtn12 to ""hide card button noBtn13set the script of card button noBtn13 to ""hide card button otherBtn5set the script of card button otherBtn5 to ""hide card button otherBtn6set the script of card button otherBtn6 to ""hide card button otherBtn7set the script of card button otherBtn7 to ""hide card button otherBtn8set the script of card button otherBtn8 to ""hide card button otherBtn9set the script of card button otherBtn9 to ""hide card button otherBtn10set the script of card button otherBtn10 to ""hide card button otherBtn11set the script of card button otherBtn11 to ""hide card button otherBtn12set the script of card button otherBtn12 to ""hide card button otherBtn13set the script of card button otherBtn13 to ""if card fld pictids is not empty thenput 1 into tempelseput 2 into tempend ifput empty into card fld pictidshide card button BackArrowrepeat with x = 1 to the number of cardsput the short name of this card into xif x = "Build" or x = "full" or x = "fulltoo" or x = "default" thengo to next cardelsedomenu "delete card"end ifend repeatput empty into card fld Definehide card button finishedhide card fld hiderput empty into card fld "problem"hide msggo to card buildif temp is "1" thenanswer "You must delete the pict resources you added to this stack if not this stack will become very large" with "HUH?" or "OK"if it is "HUH?" thenanswer "You added pict resources to this stack by choosing to display a pict file with a conclusion" with "continued"if it is "continued" thenanswer "You must delete those resources using ResCopy. Simply click on the pict type resources in the following window and click on the remove button, only picts"end ifend ifResCopyend ifend clearSystem</script>
